PROGRAM p
	IMPLICIT NONE
	include <windows.ins>
	EXTERNAL soal1a, soal1b, soal1c, soal1d, soal2, soal3,soal4
	WINAPP
	INTEGER i
	
	i	= winio@('%ca[Tugas Metnum]%bg[grey]&')
	i  	= winio@('%fn[Courier New]%ts%cnTugas Metnum 1&',2.0D0)
	i  	= winio@('%fn[Courier New]%ts&',1.0D0)
	i	= winio@('%2nl%`ob[named_l][Soal 1]&')
	i	= winio@('%^bt[1A]&', soal1a)
	i	= winio@('%1ta%^bt[1B]&',soal1b)
	i	= winio@('%1ta%^bt[1C]&',soal1c)
	i	= winio@('%1ta%^bt[1D]&',soal1d)
	i	= winio@('%cb%4nl%cn%`ob[named_l][Soal 2]&')
	i	= winio@('%cn%20^bt[2]&',soal2)
	i	= winio@('%cb%2nl%cn%`ob[named_l][Soal 3]&')
	i	= winio@('%cn%20^bt[3]&',soal3)
	i	= winio@('%cb%2nl%cn%`ob[named_l][Soal 4]&')
	i	= winio@('%cn%20^bt[4]&',soal4)
	i	= winio@('%cb%3nl%cn%bt[EXIT]')
	
END

	